home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 001_100 / DISK0047 / DISK0047.ZIP / GDUMP1.BAS < prev    next >
BASIC Source File  |  1982-07-17  |  640b  |  23 lines
  1. 20 B7%=128:B6%=64:B5%=32:B4%=16:B3%=8:B2%=4:B1%=2:B0%=1
  2. 30 LPRINT CHR$(27)"@": WIDTH "LPT1:",255
  3. 40 DIM X%(8),B%(320)
  4. 50  FOR Y% = 0 TO 191 STEP 8
  5. 60 FOR X% = 0 TO 319
  6. 70 FOR I% = 0 TO 7
  7. 80  X%(I%) = POINT(X%, Y%+I%): IF X%(I%)=3 THEN X%(I%)=1
  8. 90 NEXT I%
  9. 100 B%(X%)=X%(0)*B7%+X%(1)*B6%+X%(2)*B5%+X%(3)*B4%+X%(4)*B3%+X%(5)*B2%+X%(6)*B1%+X%(7)*B0%
  10. 110 NEXT X%
  11. 120 LPRINT CHR$(27);"K";CHR$(63);CHR$(1);
  12. 130 FOR J%= 0 TO 319
  13. 140 LPRINT CHR$(B%(J%));
  14. 150 NEXT J%
  15. 160 LPRINT CHR$(27) "A"  CHR$(8)
  16. 170 NEXT Y%
  17. 180  END
  18. HR$(1);
  19. 130 FOR J%= 0 TO 319
  20. 140 LPRINT CHR$(B%(J%));
  21. 150 NEXT J%
  22. 160 LPRINT CHR$(27) "A"  CHR$(8)
  23. 170 NE